home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / zindent7.zip / ZINVAR.INC < prev   
Text File  |  1987-03-30  |  7KB  |  202 lines
  1.  
  2. (*******************************************************************)
  3. (*                                                                 *)
  4. (* Include File                                                    *)
  5. (* System Variables, v. 0630am, sun, 28.Mar.87, Glen Ellis         *)
  6. (*                                                                 *)
  7. (*******************************************************************)
  8.  
  9. (* many of these memvar assignments are not actually utilized
  10. (* within the Zindent program.  They are here because they were
  11. (* required during development, and now they linger.  Some groups
  12. (* of Types and Vars are here just for consistent availability,
  13. (* as a 'pool' from which to draw for development in the future. *)
  14.  
  15. CONST
  16.       (* not used yet, but could be useful for displays *)
  17.       VertBar    = '|';     HorzBar    = '_';
  18.       LCBracket  = '{';     RCBracket  = '}';
  19.       LSBracket  = '[';     RSBracket  = ']';
  20.       Tilde      = '~';
  21.  
  22.  
  23. TYPE
  24.  
  25.     (* general purpose *)
  26.  
  27.     string1    = string[1];
  28.     string2    = string[2];
  29.     string3    = string[3];
  30.     string4    = string[4];
  31.     string5    = string[5];
  32.     string6    = string[6];
  33.     string7    = string[7];
  34.     string8    = string[8];
  35.     string9    = string[9];
  36.     string10   = string[10];
  37.     string11   = string[11];
  38.     string12   = string[12];
  39.     string13   = string[13];
  40.     string14   = string[14];
  41.     string40   = string[40];
  42.     string80   = string[80];
  43.     string127  = string[127];
  44.     string128  = string[128];
  45.     string255  = string[255];
  46.  
  47.     THEstr     = string255;  (* "THE" string is the catch-all ! *)
  48.     lgc        = boolean;    (* short abreviation *)
  49.     nbr        = integer;    (* short abreviation *)
  50.  
  51.     typF       = text;     (* type of file     *)
  52.     typFN      = string14; (* type of filename *)
  53.                (* for MSDOS make typFN much longer ! *)
  54.  
  55. (*----------------------------------------------------------*)
  56.  
  57.  
  58. VAR
  59.  
  60.    (*---> programmer's control *)
  61.  
  62.    SysDisplay         : lgc; (* normal running display *)
  63.    SysUserTrace       : lgc; (* extra display for user *)
  64.    SysPgmTrace        : lgc; (* audit developmental for programmer *)
  65.    SysSpcTrace        : lgc; (* special, developmental, testing only *)
  66.  
  67.    (*---> I/O flags *)
  68.  
  69.    (* Pascal I/O values *)
  70.    SysIOcheck                : lgc ;
  71.    IOval                     : nbr ;
  72.    IOerr                     : lgc ;
  73.  
  74.    (*---> Command Line Entry module *)
  75.    SysLineUse, SysLineCmd, SysLineFil : lgc;
  76.  
  77.    (*---> Control Variables *)
  78.  
  79.    (* long names are for programming readability. *)
  80.    (* short names are for sending many vars to procedures *)
  81.    (*       without line overflow. *)
  82.  
  83.    (* improvement in speed and code side could be obtained by
  84.    (* utilizing the same memvar names throughout the program,
  85.    (* without shuffling between long/short memvars. *)
  86.  
  87.    (* enable Pascal keyword search if first 'begin' occurred *)
  88.    SysEnableBegin               : lgc;
  89.    SEB                          : lgc;
  90.  
  91.    (* enable CORE module if all parameters OK    *)
  92.    SysEnableCore                : lgc;  (* SEC *)
  93.    SEC                          : lgc;
  94.  
  95.    (* enable write to disk (ex. if not comment ) *)
  96.    SysMarkWrite                 : lgc;  (* SMW *)
  97.    SMW                          : lgc;
  98.  
  99.    (*---> file handler memvar *)
  100.  
  101.    SysInFile                      : typF;
  102.    SIFF                           : typF;
  103.    SysOutFile                     : typF;
  104.    SOFF                           : typF;
  105.  
  106.    SysInFileName                  : typFN;
  107.    SIFN                           : typFN;
  108.    SysOutFileName                 : typFN;
  109.    SOFN                           : typFN;
  110.  
  111.    SysFile0, SysFile1, SysFile2   : typFN;
  112.  
  113.  
  114.    (*---> file string *)
  115.  
  116.    SysInStr, SysOutStr         : THEstr   ;  (* I/O string *)
  117.    SISS    , SOSS              : THEstr   ;
  118.  
  119.    SysInLine, SysOutLine       : THEstr   ;  (* I/O line data *)
  120.    SILL     , SOLL             : THEstr   ;
  121.  
  122.    SysString                   : THEstr   ;  (* general string *)
  123.  
  124.  
  125.    (*---> utility *)
  126.  
  127.    InFile, OutFile             : typF;
  128.    Line, Workline              : THEstr;
  129.    StringLine                  : string80;
  130.    InStr, OutStr               : Thestr;
  131.  
  132.    str1                           : string1;
  133.    str2                           : string2;
  134.    str3                           : string3;
  135.    str4                           : string4;
  136.    str5                           : string5;
  137.    str6                           : string6;
  138.    str7                           : string7;
  139.    str8                           : string8;
  140.    str9                           : string9;
  141.    str10                          : string10;
  142.    str11                          : string11;
  143.    str12                          : string12;
  144.    str13                          : string13;
  145.    str14                          : string14;
  146.    x,xx,y,yy,z,zz                 : nbr;
  147.    Mark                           : lgc;
  148.  
  149.    (*---> Operating Variables for Core module *)
  150.  
  151.    (* required by Sysline.inc and Sysfile.inc modules *)
  152.  
  153.    SysCmdLine, SCL    : lgc;  (* Command Line entry *)
  154.    SysCmdFile, SCF    : lgc;  (* Command File entry *)
  155.    SysCmdUser, SCU    : lgc;  (* Command User entry *)
  156.    SysCmdUserFile     : lgc;
  157.    SysCmdUserParm     : lgc;
  158.  
  159.    SysPgmMod, SPMM       : string2; (* flag for current development *)
  160.    SysPgmModStrL, SPMSL  : string2; (* prefix for comment line *)
  161.    SysPgmModStrR,SPMSR   : string2; (* suffix for comment line *)
  162.    SysPgmType, SPT       : string4; (* used by SysParse for SysPgmMod *)
  163.  
  164.    (* defined specifically within modules *)
  165.  
  166.    SysComment     : lgc;  (* enable include of comment lines *)
  167.    SysCommentNum  : nbr;  (* temp var                        *)
  168.    SysLineCnt     : lgc;  (* enable line numbering module    *)
  169.    SysLineCntNum  : nbr;
  170.    SysLineNum     : nbr;
  171.    SysVertiate    : lgc; (* vertical markers for blank lines *)
  172.  
  173.    SysCharEntry   : string1; (* gen. purp.entry FETCHER *)
  174.  
  175.    SysIndent            : lgc;  (* enable indent of source lines *)
  176.    SysIndentNum, SIN    : nbr;  (* length of indent group          *)
  177.    SysIndentPos, SIP    : nbr;  (* indent position current         *)
  178.    SysLenMax, SLM       : nbr;  (* line length for typF line       *)
  179.  
  180.          (* defaults not covered yet *)
  181.  
  182.          (* for FileName list from Text File *)   (*string14*)
  183.          SysInSource    : array [1..48] of typFN;
  184.          SysInSourceCnt : nbr;
  185.          SysInSourceMax : nbr;
  186.  
  187.          (* required for KEYWORD.INC *)
  188.          (* not all used in any one application *)
  189.          (* rename these if need be  *)
  190.  
  191.          SyslevelIF, SLI       : nbr;
  192.          SyslevelCASE, SLC     : nbr;
  193.          SyslevelWHILE, SLW    : nbr;
  194.          SysLevelBEGIN, SLB    : nbr;
  195.          SysLevelREPEAT, SLR   : nbr;
  196.  
  197.  
  198. (* end of SYS.VAR *)
  199.  
  200.  
  201. (*******************************************************************)
  202. (*<<<>>>*)